home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
DEBUG
/
DTRACE32
/
DTRACE32.ZIP
/
UNoTrace.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-09-25
|
2KB
|
56 lines
unit UNoTrace;
interface
type
TDebugSeverity = (cNone,cInfo,cWarning,cError);
procedure Assert(Condition : Boolean;TheText : String);
procedure AssertFmt(Condition : Boolean;TheFormat : String;const Args: Array of const);
procedure DebugDump(TheText : String;Address : Pointer;Count : Integer);
procedure Debug(TheSeverity : TDebugSeverity;TheText : String);
procedure DebugFmt(TheSeverity : TDebugSeverity;TheFormat : String;const Args: Array of const);
procedure DebugInfo(TheText : String);
procedure DebugInfoFmt(TheFormat : String;const Args: Array of const);
procedure DebugWarn(TheText : String);
procedure DebugWarnFmt(TheFormat : String;const Args: Array of const);
procedure DebugErr(TheText : String);
procedure DebugErrFmt(TheFormat : String;const Args: Array of const);
implementation
{$StackFrames On}
{$DebugInfo Off}
procedure Assert(Condition : Boolean;TheText : String);
begin
end;
procedure AssertFmt(Condition : Boolean;TheFormat : String;const Args: Array of const);
begin
end;
procedure DebugDump(TheText : String;Address : Pointer;Count : Integer);
begin
end;
procedure DebugInfo(TheText : String);
begin
end;
procedure DebugInfoFmt(TheFormat : String;const Args: Array of const);
begin
end;
procedure DebugWarn(TheText : String);
begin
end;
procedure DebugWarnFmt(TheFormat : String;const Args: Array of const);
begin
end;
procedure DebugErr(TheText : String);
begin
end;
procedure DebugErrFmt(TheFormat : String;const Args: Array of const);
begin
end;
procedure DebugFmt(TheSeverity : TDebugSeverity;TheFormat : String;const Args: Array of const);
begin
end;
procedure Debug(TheSeverity : TDebugSeverity;TheText : String);
begin
end;
end.